home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / flarith.scm < prev    next >
Encoding:
Text File  |  1992-02-18  |  1.2 KB  |  95 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4. Description:
  5.  
  6. This code tests generic arithmetic: possible open coding or
  7. special utilities invoked.
  8.  
  9. Usage:
  10. Try each of them as if they were +, etc.
  11. |#
  12.  
  13. (declare (usual-integrations))
  14.  
  15. (define (my-+ x y)
  16.   (flo:+ x y))
  17.  
  18. (define (my-- x y)
  19.   (flo:- x y))
  20.  
  21. (define (my-* x y)
  22.   (flo:* x y))
  23.  
  24. (define (my-/ x y)
  25.   (flo:/ x y))
  26.  
  27. (define (my-= x y)
  28.   (flo:= x y))
  29.  
  30. (define (my-< x y)
  31.   (flo:< x y))
  32.  
  33. (define (my-> x y)
  34.   (flo:> x y))
  35.  
  36. (define (my-zero? x)
  37.   (flo:zero? x))
  38.  
  39. (define (my-positive? x)
  40.   (flo:positive? x))
  41.  
  42. (define (my-negative? x)
  43.   (flo:negative? x))
  44.  
  45. (define (my-negate x)
  46.   (flo:negate x))
  47.  
  48. (define (my-abs x)
  49.   (flo:abs x))
  50.  
  51. (define (my-exp x)
  52.   (flo:exp x))
  53.  
  54. (define (my-log x)
  55.   (flo:log x))
  56.  
  57. (define (my-sin x)
  58.   (flo:sin x))
  59.  
  60. (define (my-cos x)
  61.   (flo:cos x))
  62.  
  63. (define (my-tan x)
  64.   (flo:tan x))
  65.  
  66. (define (my-asin x)
  67.   (flo:asin x))
  68.  
  69. (define (my-acos x)
  70.   (flo:acos x))
  71.  
  72. (define (my-atan x)
  73.   (flo:atan x))
  74.  
  75. (define (my-sqrt x)
  76.   (flo:sqrt x))
  77.  
  78. (define (my-floor x)
  79.   (flo:floor x))
  80.  
  81. (define (my-ceiling x)
  82.   (flo:ceiling x))
  83.  
  84. (define (my-truncate x)
  85.   (flo:truncate x))
  86.  
  87. (define (my-round x)
  88.   (flo:round x))
  89.  
  90. (define (my-atan2 y x)
  91.   (flo:atan2 y x))
  92.  
  93. (define (my-expt x y)
  94.   (flo:expt x y))
  95.